home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / docs / help / aguidehowwrite.lha / amigaguide_how_to_write / miscellaneous / ShowNodeExample-2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-12-30  |  938 b   |  50 lines
  1. /* Example 2 -  Script For Showing an Amigaguide Node */
  2.  
  3. Down = 'a'x
  4.  
  5. /******************************
  6.  * Add the amigaguide.library *
  7.  ******************************/
  8.  
  9. IF ~EXISTS('Libs:amigaguide.library') THEN DO
  10.  
  11.   SAY 'Libs: directory does not contain the amigaguide.library file'
  12.   EXIT
  13.  
  14. END
  15.  
  16. IF ~SHOW('L','amigaguide.library') THEN DO
  17.  
  18.   CALL ADDLIB('amigaguide.library',0,-30)
  19.  
  20. END
  21.  
  22. /*****************
  23.  * Set file name *
  24.  *****************/
  25.  
  26. FileName = 'DOPUS5:Help/Dopus5.guide'
  27. NodeName = 'Encrypt'
  28.  
  29. /************************
  30.  * Check if file exists *
  31.  ************************/
  32.  
  33. IF ~EXISTS(FileName) THEN DO
  34.  
  35.   SAY Down||' 'FileName 'not found.'Down,
  36.   'Do you have Directory Opus version 5 or higher running'Down,
  37.   'and is the assignment to Dopus5: still in effect?'Down
  38.  
  39.   EXIT
  40.  
  41. END
  42.  
  43. /*****************
  44.  * Call Shownode *
  45.  *****************/
  46.  
  47. CALL SHOWNODE('DOPUS.1',FileName,NodeName,,)
  48.   
  49. CALL REMLIB('amigaguide.library')
  50.